Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/iproj/ques2.frm

Text File | 1995-09-06 | 6KB | 208 lines

VERSION 2.00
Begin Form QUES2
   BackColor       =   &H00800080&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Question 2"
   ClientHeight    =   3420
   ClientLeft      =   1695
   ClientTop       =   1425
   ClientWidth     =   6030
   ClipControls    =   0   'False
   ForeColor       =   &H00FFFFFF&
   Height          =   3825
   Left            =   1635
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3420
   ScaleWidth      =   6030
   Top             =   1080
   Width           =   6150
   Begin CheckBox Check6
      BackColor       =   &H00800080&
      Caption         =   "Powerpoint"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   3960
      TabIndex        =   12
      Top             =   720
      Width           =   1815
   End
   Begin CheckBox Check7
      BackColor       =   &H00800080&
      Caption         =   "Word"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   3960
      TabIndex        =   11
      Top             =   1080
      Width           =   1815
   End
   Begin CheckBox Check8
      BackColor       =   &H00800080&
      Caption         =   "Schedule+"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   3960
      TabIndex        =   10
      Top             =   1440
      Width           =   1815
   End
   Begin CheckBox Check9
      BackColor       =   &H00800080&
      Caption         =   "None"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   3960
      TabIndex        =   9
      Top             =   1800
      Width           =   1815
   End
   Begin CheckBox Check10
      BackColor       =   &H00800080&
      Caption         =   "Other"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   3960
      TabIndex        =   8
      Top             =   2160
      Width           =   855
   End
   Begin CommandButton Command2
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Default         =   -1  'True
      Height          =   495
      Left            =   3240
      TabIndex        =   7
      Top             =   2640
      Width           =   1695
   End
   Begin CommandButton Command1
      Caption         =   "Next Question ->"
      Height          =   495
      Left            =   1200
      TabIndex        =   6
      Top             =   2640
      Width           =   1815
   End
   Begin CheckBox Check5
      BackColor       =   &H00800080&
      Caption         =   "Nexis or other information databases"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   2160
      Width           =   3495
   End
   Begin CheckBox Check4
      BackColor       =   &H00800080&
      Caption         =   "Electronic Mail"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   4
      Top             =   1800
      Width           =   1815
   End
   Begin CheckBox Check3
      BackColor       =   &H00800080&
      Caption         =   "File manager"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   1440
      Width           =   1815
   End
   Begin CheckBox Check2
      BackColor       =   &H00800080&
      Caption         =   "Excel"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   1080
      Width           =   1815
   End
   Begin CheckBox Check1
      BackColor       =   &H00800080&
      Caption         =   "Contacts"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   720
      Width           =   1815
   End
   Begin Label Label1
      BackColor       =   &H00800080&
      Caption         =   "Select each software package you used in January 1994"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   5295
   End
End

Sub Command1_Click ()
question2 = ""
If check1 = 1 Then
    question2 = question2 + "1;"
End If

If check2 = 1 Then
    question2 = question2 + "2;"
End If

If check3 = 1 Then
    question2 = question2 + "3;"
End If

If check4 = 1 Then
    question2 = question2 + "4;"
End If

If check5 = 1 Then
    question2 = question2 + "5;"
End If

If check6 = 1 Then
    question2 = question2 + "6;"
End If

If check7 = 1 Then
    question2 = question2 + "7;"
End If

If check8 = 1 Then
    question2 = question2 + "8;"
End If

If check9 = 1 Then
    question2 = question2 + "9;"
End If

If check10 = 1 Then
    question2 = question2 + "10;"
End If

If question2 <> "" Then
    ques3.Show
Else
    MsgBox ("Please answer the current question before moving on!")
End If

End Sub

Sub Command2_Click ()
    response = MsgBox("Do you really want to close without sending in your responses?", 1, "Are you sure?")
    If response = 1 Then
        End
    End If
End Sub